home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Tools - Objects / MacApp / MacApp 2.0 CD Release / MacApp 2.0 (Many Libraries) / Libraries / PrivateInterfaces / UFailure.p < prev    next >
Encoding:
Text File  |  1990-03-27  |  678 b   |  33 lines  |  [TEXT/MPS ]
  1. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n+]}
  2. { UFailure.p }
  3. { Copyright © 1984-1990  Apple Computer, Inc.  All rights reserved. }
  4.  
  5. {$IFC UNDEFINED UsingIncludes}
  6. {$SETC UsingIncludes := FALSE}
  7. {$ENDC}
  8.  
  9. UNIT UFailure;
  10.  
  11.     INTERFACE
  12.  
  13.         USES
  14. {$SETC __UFailure__ := TRUE}
  15.             { • Implementation USES }
  16.             {$U $$Shell(MAPInterfaces)UDebug} UDebug,
  17.  
  18.             Memory, Resources, Sound, Errors;
  19.  
  20. {$SETC __UFailure__ := FALSE}
  21.             { • Include the public interface }
  22.             {$SETC _UFailureIncludes := UsingIncludes}
  23.             {$SETC UsingIncludes := TRUE}
  24.             {$I+}
  25.             {$I $$Shell(MAPInterfaces)UFailure.p}
  26.             {$SETC UsingIncludes := _UFailureIncludes}
  27.  
  28.     IMPLEMENTATION
  29.  
  30.         {$I UFailure.inc1.p}
  31.  
  32. END.
  33.